home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY1
/
MSWLGO35.ZIP
/
LOGOLIB
/
MDARRAY
< prev
next >
Wrap
Text File
|
1991-08-29
|
264b
|
11 lines
to mdarray :sizes [:origin 1]
local "array
make "array (array first :sizes :origin)
if not emptyp bf :sizes ~
[for [i :origin [:origin + (first :sizes) - 1]] ~
[setitem :i :array (mdarray bf :sizes :origin)]]
output :array
end
bury "mdarray